home *** CD-ROM | disk | FTP | other *** search
/ com!online 2005 May / com_0505_1.iso / opensource / top10 / amc_install.exe / {app} / Scripts / Filmweb (PL).ifs < prev    next >
Encoding:
Text File  |  2004-10-17  |  20.1 KB  |  548 lines
  1. // GETINFO SCRIPTING
  2. // Filmweb (PL) info & small picture, modyfications by Atomek2000
  3.  
  4. (***************************************************
  5.  *  Movie information & small picture importation  *
  6.  *    script for Filmweb http://www.filmweb.pl     *
  7.  *           (c) 2002 Piotr Kardasz                *
  8.  *     05.10.2003 Improvements made by Adma's      *
  9.  *   07.10.2003 Modifications by Adma's to import  *
  10.  *                 small picture                   *
  11.  *      03.03.2004 Modyfications by BestiaPL       *
  12.  *      support for new movie database links       *
  13.  *     17.10.2004 Modyfications by Atomek2000      *
  14.  *      support for new site design Filmweb        *
  15.  *                                                 *
  16.  *  For use with Ant Movie Catalog 3.4.3           *
  17.  *  www.antp.be/software/moviecatalog              *
  18.  *                                                 *
  19.  *  This program is free software; you can         *
  20.  *  redistribute it and/or modify it under the     *
  21.  *  terms of the GNU General Public License as     *
  22.  *  published by the Free Software Foundation;     *
  23.  *  either version 2 of the License, or (at your   *
  24.  *  option) any later version.                     *
  25.  ***************************************************)
  26.  
  27. program FilmWeb;
  28. var
  29.   MovieName: string;
  30.   Link: string;
  31.  
  32. function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
  33. var
  34.   i: Integer;
  35. begin
  36.   result := -1;
  37.   if StartAt < 0 then
  38.     StartAt := 0;
  39.   for i := StartAt to List.Count-1 do
  40.     if Pos(Pattern, List.GetString(i)) <> 0 then
  41.     begin
  42.       result := i;
  43.       Break;
  44.     end;
  45. end;
  46.  
  47. procedure DelSpace(var Value: String);
  48. var
  49.   FullValue: String;
  50.   Counter: Integer;
  51. begin
  52.   if Value <> '' then
  53.   begin
  54.     FullValue := FullValue + StrGet(Value, 1);
  55.     for Counter := 2 to Length(Value) do
  56.     begin
  57.       if StrGet(Value, Counter) <> ' ' then
  58.         FullValue := FullValue + StrGet(Value, Counter)
  59.       else
  60.         if StrGet(FullValue, Length(FullValue)) <> ' ' then
  61.           FullValue := FullValue + ' ';
  62.     end;
  63.     Value := FullValue;
  64.   end
  65. end;
  66.  
  67. procedure DecodeHTML(var Value: String);
  68. var
  69.   FullValue, CharCode: String;
  70.   Counter: Integer;
  71. begin
  72.   if Value <> '' then
  73.   begin
  74.     FullValue := '';
  75.     Counter := 1;
  76.     repeat
  77.       if StrGet(Value, Counter) <> '&' then
  78.         begin
  79.           CharCode := copy(Value, Counter, 1);
  80.           case CharCode of
  81.             '▒': CharCode := '╣';
  82.             '╢': CharCode := '£';
  83.             'í': CharCode := 'Ñ';
  84.             '╝': CharCode := 'ƒ';
  85.             'ª': CharCode := 'î';
  86.             '¼': CharCode := 'Å';
  87.           end;
  88.           FullValue := FullValue + CharCode;
  89.           Counter := Counter + 1;
  90.         end
  91.       else
  92.         begin
  93.           CharCode := copy(Value, Counter, 7);
  94.           case CharCode of
  95.             'ą': FullValue := FullValue + '╣';
  96.             'ć': FullValue := FullValue + 'µ';
  97.             'ę': FullValue := FullValue + 'Ω';
  98.             'ł': FullValue := FullValue + '│';
  99.             'ń': FullValue := FullValue + '±';
  100.             'ó': FullValue := FullValue + '≤';
  101.             'ś': FullValue := FullValue + '£';
  102.             'ź': FullValue := FullValue + 'ƒ';
  103.             'ż': FullValue := FullValue + '┐';
  104.             'Ą': FullValue := FullValue + 'Ñ';
  105.             'Ć': FullValue := FullValue + '╞';
  106.             'Ę': FullValue := FullValue + '╩';
  107.             'Ł': FullValue := FullValue + 'ú';
  108.             'Ń': FullValue := FullValue + '╤';
  109.             'Ó': FullValue := FullValue + '╙';
  110.             'Ś': FullValue := FullValue + 'î';
  111.             'Ź': FullValue := FullValue + 'Å';
  112.             'Ż': FullValue := FullValue + '»';
  113.             'Š': FullValue := FullValue + ' ';
  114.             'š': FullValue := FullValue + 'í';
  115.             'Ţ': FullValue := FullValue + 'í';
  116.             'ţ': FullValue := FullValue + 'ú';
  117.             'Ť': FullValue := FullValue + 'ñ';
  118.             'ť': FullValue := FullValue + 'Ñ';
  119.             'Ŧ': FullValue := FullValue + 'î';
  120.             'ŧ': FullValue := FullValue + 'º';
  121.             'Ũ': FullValue := FullValue + '¿';
  122.             'ũ': FullValue := FullValue + '⌐';
  123.             'Ű': FullValue := FullValue + '¬';
  124.             'ű': FullValue := FullValue + '½';
  125.             'Ų': FullValue := FullValue + '¼';
  126.             'ų': FullValue := FullValue + '¡';
  127.             'Ŵ': FullValue := FullValue + '«';
  128.             'ŵ': FullValue := FullValue + '»';
  129.             'Ŷ': FullValue := FullValue + '░';
  130.             'ŷ': FullValue := FullValue + '▒';
  131.             'Ÿ': FullValue := FullValue + '▓';
  132.             'ƀ': FullValue := FullValue + '┤';
  133.             'Ɓ': FullValue := FullValue + '╡';
  134.             'Ƃ': FullValue := FullValue + '╢';
  135.             'ƃ': FullValue := FullValue + '╖';
  136.             'Ƅ': FullValue := FullValue + '╕';
  137.             'ƅ': FullValue := FullValue + '╣';
  138.             'Ɔ': FullValue := FullValue + '║';
  139.             'Ƈ': FullValue := FullValue + '╗';
  140.             'ƈ': FullValue := FullValue + '╝';
  141.             'Ɖ': FullValue := FullValue + '╜';
  142.             'Ɛ': FullValue := FullValue + '╛';
  143.             'Ƒ': FullValue := FullValue + '┐';
  144.             'ƒ': FullValue := FullValue + '└';
  145.             'Ɠ': FullValue := FullValue + '┴';
  146.             'Ɣ': FullValue := FullValue + '┬';
  147.             'ƕ': FullValue := FullValue + '├';
  148.             'Ɩ': FullValue := FullValue + '─';
  149.             'Ɨ': FullValue := FullValue + '┼';
  150.             'Ƙ': FullValue := FullValue + '╞';
  151.             'ƙ': FullValue := FullValue + '╟';
  152.             'Ȁ': FullValue := FullValue + '╚';
  153.             'ȁ': FullValue := FullValue + '╔';
  154.             'Ȃ': FullValue := FullValue + '╩';
  155.             'ȃ': FullValue := FullValue + '╦';
  156.             'Ȅ': FullValue := FullValue + '╠';
  157.             'ȅ': FullValue := FullValue + '═';
  158.             'Ȇ': FullValue := FullValue + '╬';
  159.             'ȇ': FullValue := FullValue + '╧';
  160.             'Ȉ': FullValue := FullValue + '╨';
  161.             'ȉ': FullValue := FullValue + '╤';
  162.             'Ȑ': FullValue := FullValue + '╥';
  163.             'ȑ': FullValue := FullValue + '╙';
  164.             'Ȓ': FullValue := FullValue + '╘';
  165.             'ȓ': FullValue := FullValue + '╒';
  166.             'Ȕ': FullValue := FullValue + '╓';
  167.             'ȕ': FullValue := FullValue + '╫';
  168.             'Ȗ': FullValue := FullValue + '╪';
  169.             'ȗ': FullValue := FullValue + '┘';
  170.             'Ș': FullValue := FullValue + '┌';
  171.             'ș': FullValue := FullValue + '█';
  172.             'Ƞ': FullValue := FullValue + '▄';
  173.             'ȡ': FullValue := FullValue + '▌';
  174.             'Ȣ': FullValue := FullValue + '▐';
  175.             'ȣ': FullValue := FullValue + '▀';
  176.             'Ȥ': FullValue := FullValue + 'α';
  177.             'ȥ': FullValue := FullValue + 'ß';
  178.             'Ȧ': FullValue := FullValue + 'Γ';
  179.             'ȧ': FullValue := FullValue + 'π';
  180.             'Ȩ': FullValue := FullValue + 'Σ';
  181.             'ȩ': FullValue := FullValue + 'σ';
  182.             'Ȱ': FullValue := FullValue + 'µ';
  183.             'ȱ': FullValue := FullValue + 'τ';
  184.             'Ȳ': FullValue := FullValue + 'Φ';
  185.             'ȳ': FullValue := FullValue + 'Θ';
  186.             'ȴ': FullValue := FullValue + 'Ω';
  187.             'ȵ': FullValue := FullValue + 'δ';
  188.             'ȶ': FullValue := FullValue + '∞';
  189.             'ȷ': FullValue := FullValue + 'φ';
  190.             'ȸ': FullValue := FullValue + 'ε';
  191.             'ȹ': FullValue := FullValue + '∩';
  192.             'ɀ': FullValue := FullValue + '≡';
  193.             'Ɂ': FullValue := FullValue + '±';
  194.             'ɂ': FullValue := FullValue + '≥';
  195.             'Ƀ': FullValue := FullValue + '≤';
  196.             'Ʉ': FullValue := FullValue + '⌠';
  197.             'Ʌ': FullValue := FullValue + '⌡';
  198.             'Ɇ': FullValue := FullValue + '÷';
  199.             'ɇ': FullValue := FullValue + '≈';
  200.             'Ɉ': FullValue := FullValue + '°';
  201.             'ɉ': FullValue := FullValue + '∙';
  202.             'ɐ': FullValue := FullValue + '·';
  203.             'ɑ': FullValue := FullValue + '√';
  204.             'ɒ': FullValue := FullValue + 'ⁿ';
  205.             'ɓ': FullValue := FullValue + '²';
  206.             'ɔ': FullValue := FullValue + '■';
  207.             'ɕ': FullValue := FullValue + ' ';
  208.             '&#x%DF;': FullValue := FullValue + '▀';
  209.             '4': FullValue := FullValue + '"';      
  210.           else
  211.             FullValue := FullValue + CharCode;  
  212.           end;
  213.           Counter := Counter + 7;
  214.         end;
  215.     until Counter > Length(Value);
  216.     HTMLDecode(FullValue);
  217.     Value := FullValue;
  218.   end
  219. end;
  220.  
  221. procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
  222. var
  223.   Line: string;
  224.   MovieTitle, MovieAddress: string;
  225.   StartPos, EndPos: Integer;
  226. begin
  227.   LineNr := FindLine('<b>filmy</b>:', Page, LineNr);
  228.   if LineNr > -1 then
  229.   begin
  230.     PickTreeAdd('Znaleziono filmy:', '');
  231.     Line := Page.GetString(LineNr);
  232.     repeat
  233.       if (Pos('<a title=', Line) > 0) and (Pos('zobacz wiΩcej', Line) <= 0) then
  234.       begin
  235.         StartPos := pos('<a title=', Line) + 10;
  236.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  237.         MovieTitle := copy(Line, 1, pos('href', Line) - 3);
  238.         DecodeHTML(MovieTitle);
  239.         HTMLRemoveTags(MovieTitle);
  240.         StartPos := pos('href=', Line) + 6;
  241.         Line := copy(Line, StartPos, Length(Line));
  242.           if pos('"', Line) > 0
  243.             then MovieAddress:= Copy(Line, 1, Pos('"', Line) - 1)
  244.             else MovieAddress:= Copy(Line, 1, Pos('class=', Line) - 3);
  245.         PickTreeAdd(MovieTitle, MovieAddress);
  246.       end;
  247.       LineNr := LineNr + 1;
  248.       Line := Page.GetString(LineNr);
  249.     until Pos('</table>', Line) > 0;
  250.   end
  251.   else
  252.     break;
  253. end;
  254.  
  255. procedure AnalyzePage(Address: string);
  256. var
  257.   Page: TStringList;
  258.   LineNr: Integer;
  259. begin
  260.   Page := TStringList.Create;
  261.   Page.Text := GetPage(Address);
  262.   Link:=Address;
  263.   if pos('<div class="tyt">', Page.Text) > 0 then
  264.     AnalyzeMoviePage(Page)
  265.   else if pos('href=', Page.Text) > 0 then
  266.   begin
  267.     PickTreeClear;
  268.     LineNr := 0;
  269.     AddMoviesTitles(Page, LineNr);
  270.     if PickTreeExec(Address) then
  271.       AnalyzePage(Address);
  272.   end;
  273.   Page.Free;
  274. end;
  275.  
  276. procedure AnalyzeMoviePage(Page: TStringList);
  277. var
  278.   Line, Value, FullValue: string;
  279.   LineNr, Counter: Integer;
  280.   StartPos, EndPos: Integer;
  281.   PageOpis: TStringList;
  282.   LineNrOpis: Integer;
  283.   AddressOpis: String;
  284. begin
  285.  
  286.   // Tytu│ polski
  287.   LineNr := FindLine('<div class="tyt">', Page, 0);
  288.   if LineNr > -1 then
  289.   begin
  290.     Line := Page.GetString(LineNr);
  291.     Line := Page.GetString(LineNr+1);
  292.     StartPos := 8;
  293.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  294.     DecodeHTML(Line);
  295.     SetField(fieldTranslatedTitle, Line);
  296.   end
  297.  
  298.   // Tytu│ oryginalny
  299.   Value:=Line;
  300.   LineNr := FindLine('<span class="styt">', Page, 0);
  301.   if LineNr > -1 then
  302.   begin
  303.     Line := Page.GetString(LineNr);
  304.     if (pos('<span class="styt">(', Line) > 0) or (pos('<span class="styt"> </span>', Line) > 0)
  305.       then Line:=Value
  306.       else begin
  307.         StartPos := pos('<span class="styt">', Line) + 19;
  308.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  309.         StartPos := pos('</', Line) - 1;
  310.         Line := copy(Line, 1, StartPos);
  311.         if copy(Line, Length(Line), 1) = ' ' then Line := copy(Line, 1, Length(Line) - 1);
  312.       end;
  313.     DecodeHTML(Line);
  314.     SetField(fieldOriginalTitle, Line);
  315.   end
  316.  
  317.   // îrednia ocena  
  318.   LineNr := FindLine('ocena:', Page, 0);
  319.   if LineNr > -1 then
  320.   begin
  321.     Line := Page.GetString(LineNr);
  322.     StartPos := pos('">', Line) + 2;
  323.     Line := copy(Line, StartPos, Length(Line) - StartPos);
  324.     StartPos := pos('</b>', Line);
  325.     Line := copy(Line, 1, StartPos - 1);
  326.     if Length(Line) = 5
  327.       then Value := IntToStr(Round(StrToInt(StrGet(Line, 1), 0) + (StrToInt(StrGet(Line, 3), 0) / 10) + (StrToInt(StrGet(Line, 4), 0) / 100) + (StrToInt(StrGet(Line, 5), 0) / 1000)))
  328.       else if Length(Line) = 4
  329.         then Value := IntToStr(Round(StrToInt(StrGet(Line, 1), 0) + (StrToInt(StrGet(Line, 3), 0) / 10) + (StrToInt(StrGet(Line, 4), 0) / 100)))
  330.         else if Length(Line) = 3
  331.           then Value := IntToStr(Round(StrToInt(StrGet(Line, 1), 0) + (StrToInt(StrGet(Line, 3), 0) / 10)))
  332.           else Value := IntToStr(Round(StrToInt(StrGet(Line, 1), 0))) ;
  333.     SetField(fieldRating, Value);
  334.  
  335.   end
  336.  
  337.   // Kategoria
  338.   LineNr := FindLine('gatunek: <b>', Page, 0);
  339.   if LineNr > -1 then
  340.   begin
  341.     Line := Page.GetString(LineNr);
  342.     StartPos := pos('gatunek: <b>', Line) + 12;
  343.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  344.     StartPos := pos('</b>', Line);
  345.     Line := copy(Line, 1, StartPos - 1);
  346.     DecodeHTML(Line);
  347.     SetField(fieldCategory, Line);
  348.   end
  349.     
  350.   // Kraj
  351.   LineNr := FindLine('produkcja: <b>', Page, 0);
  352.   if LineNr > -1 then
  353.   begin
  354.     Line := Page.GetString(LineNr);
  355.     StartPos := pos('produkcja: <b>', Line) + 15;
  356.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  357.     StartPos := pos(' </b>', Line);
  358.     Line := copy(Line, 1, StartPos - 1);
  359.     DecodeHTML(Line);
  360.     SetField(fieldCountry, Line);
  361.   end    
  362.   
  363.   // Rok produkcji
  364.   LineNr := FindLine('<span class="styt">(', Page, 0);
  365.   if LineNr > -1 then
  366.   begin
  367.     Line := Page.GetString(LineNr);
  368.     StartPos := pos(')</span>', Line);
  369.     Value := copy(Line, StartPos-4, 4);
  370.     SetField(fieldYear, Value);
  371.   end
  372.  
  373.   // Re┐yseria
  374.   LineNr := FindLine('re┐yseria', Page, 0);
  375.   if LineNr > -1 then
  376.   begin
  377.     Line := Page.GetString(LineNr);
  378.     StartPos:= Pos('re┐yseria', Line) + 9;
  379.     Line:= Copy(Line, StartPos, Length(Line));
  380.     Value:='';
  381.     repeat
  382.       StartPos:= Pos('">', Line) + 2;
  383.       Line:= Copy(Line, StartPos, Length(Line) - StartPos);
  384.       Value:= Value + Copy(Line, 1, Pos('</a>', Line) - 1) + ', ';
  385.     until Pos('">', Line) <= 0;
  386.     Value:= Copy(Value, 1, Length(Value) - 2);
  387.     DecodeHTML(Value);
  388.     SetField(fieldDirector, Value);
  389.   end
  390.  
  391.   // Producent
  392. //  LineNr := FindLine('>producent:</td>', Page, 0);
  393. //  if LineNr > -1 then
  394. //  begin
  395. //    Line := Page.GetString(LineNr);
  396. //    StartPos := pos('>producent:</td>', Line) + 16;
  397. //    Line := copy(Line, StartPos, Length(Line) - StartPos); 
  398. //    Value := copy(Line, 1, pos('</a></td></tr>', Line) - 1);
  399. //    HTMLRemoveTags(Value);
  400. //    DecodeHTML(Value); 
  401. //    SetField(fieldProducer, Value);
  402. //  end  
  403.  
  404.   // Czas trwania
  405.   LineNr := FindLine('czas trwania:', Page, 0);
  406.   if LineNr > -1 then
  407.   begin
  408.     Line := Page.GetString(LineNr);
  409.     StartPos := pos('czas trwania:', Line) + 14;
  410.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  411.     SetField(fieldLength, Line);
  412.   end
  413.   
  414.   // Opis filmu
  415.   LineNr := FindLine('alt="o filmie"', Page, 0);
  416.   if LineNr > -1 then
  417.   begin
  418.     if FindLine('... <a class="n" href="', Page, LineNr) > 0 then
  419.     begin
  420.       LineNr := FindLine('... <a class="n" href="', Page, LineNr);
  421.       Line := Page.GetString(LineNr);
  422.       StartPos := pos('... <a class="n" href="', Line) + 23;
  423.       Line := copy(Line, StartPos, Length(Line) - StartPos);
  424.       StartPos := pos('">', Line);
  425.       Line := copy(Line, 1, StartPos - 1);
  426.       AddressOpis := Line;
  427.       SetField(fieldComments, 'Dodatkowe opisy filmu na stronie: ' + AddressOpis);
  428.       PageOpis := TStringList.Create;
  429.       PageOpis.Text := GetPage(AddressOpis);
  430.       LineNrOpis := FindLine('<li>', PageOpis, 0);
  431.       if LineNrOpis > -1 then
  432.       begin
  433.         LineNrOpis:= LineNrOpis + 1;
  434.         Line := PageOpis.GetString(LineNrOpis);
  435.         While FindLine('<li>', PageOpis, LineNrOpis) >0 do
  436.         begin
  437.           LineNrOpis := FindLine('<li>', PageOpis, LineNrOpis);
  438.           LineNrOpis:= LineNrOpis + 1;
  439.         end;
  440.         LineNrOpis:=LineNrOpis-1;
  441.         Line:='';
  442.         EndPos:=FindLine('</li>', PageOpis, LineNrOpis);
  443.         For StartPos:=LineNrOpis to EndPos do Line := Line + PageOpis.GetString(StartPos) + ' ';
  444.         StartPos := pos('<li>', Line);
  445.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  446.         HTMLRemoveTags(Line);
  447.         while copy(Line,1,1) = ' ' do Line:=copy(Line,2,Length(Line) - 1);
  448.         if copy(Line, Length(Line), 1) = ' ' then Line := copy(Line, 1, Length(Line) - 1);
  449.       end;
  450.       PageOpis.Free;
  451.     end
  452.     else
  453.     begin
  454.       Line := Page.GetString(LineNr+1);
  455.       Line:=StringReplace(Line, #9, ' ');
  456.       HTMLRemoveTags(Line);
  457.       while copy(Line,1,1) = ' ' do Line:=copy(Line,2,Length(Line) - 1);
  458.     end;
  459.     DecodeHTML(Line);
  460.     Line:=StringReplace(Line, chr(34),chr(39)); // zamiana cudzyslowu na apostrof
  461.     DelSpace(Line);
  462.     SetField(fieldDescription, Line);
  463.   end
  464.   
  465.   // Obsada
  466.   LineNr := FindLine('alt="obsada"', Page, 0);
  467.   if LineNr > -1 then
  468.   begin
  469.     LineNr:= LineNr + 1;
  470.     Line := Page.GetString(LineNr);
  471.     While Pos('title="', Line) <= 0 do
  472.     begin
  473.       LineNr:= LineNr + 1;
  474.       Line := Page.GetString(LineNr);
  475.     end;
  476.     Value := '';
  477.     repeat
  478.       if Pos('title=', Line) > 0 then
  479.       begin
  480.         Line:= Copy(Line, Pos('title=', Line) + 7, Length(Line));
  481.         StartPos:= Pos('">', Line) + 2;
  482.         Line:= Copy(Line, StartPos, Length(Line));
  483.         Value:= Value + Copy(Line, 1, Pos('</a', Line) - 1) + ', ';
  484.       end;
  485.       LineNr:= LineNr + 1;
  486.       Line := Page.GetString(LineNr);
  487.     until Pos('</table>', Line) > 0; //align="right"><a class="n"
  488.     Value := copy(Value, 1, Length(Value) - 2);
  489.     DecodeHTML(Value); 
  490.     SetField(fieldActors, Value);
  491.   end
  492.   
  493.   //URL
  494.   setField(fieldURL, Link);
  495.   
  496.  //Foto
  497.   Value:= '';
  498.   LineNr:= FindLine('<img  src="http://gfx.filmweb.pl', Page, 0);
  499.   if LineNr > -1
  500.   then begin
  501.     Line:= Page.GetString(LineNr);
  502.     StartPos:= Pos('src=', Line) + 5;
  503.     Line:= Copy(Line, StartPos, Length(Line));
  504.     Line:= Copy(Line, 1, Pos('alt=', Line) - 3);
  505.     HTMLRemoveTags(Line);
  506.     DecodeHTML(Line);
  507.     DelSpace(Line);
  508.     GetPicture(Line, False); // False = nie przechowuj zdjΩcia na zewnΩtrz ; przechowuj w pliku katalogu
  509.   end
  510.  
  511.   DisplayResults;
  512. end;
  513.  
  514. begin
  515.   if CheckVersion(3,4,3) then
  516.   begin
  517.     MovieName := GetField(fieldOriginalTitle);
  518.     if MovieName = '' then
  519.       MovieName := GetField(fieldTranslatedTitle);
  520.     if Input('FilmWeb Import', 'Podaj tytu│ filmu:', MovieName) then
  521.     begin
  522.       MovieName:=StringReplace(MovieName, '╣', chr(177));  // Zamiana na ISO-8859-2
  523.       MovieName:=StringReplace(MovieName, 'µ', chr(230));
  524.       MovieName:=StringReplace(MovieName, 'Ω', chr(234));
  525.       MovieName:=StringReplace(MovieName, '│', chr(179));
  526.       MovieName:=StringReplace(MovieName, '±', chr(241));
  527.       MovieName:=StringReplace(MovieName, '≤', chr(243));
  528.       MovieName:=StringReplace(MovieName, '£', chr(182));
  529.       MovieName:=StringReplace(MovieName, 'ƒ', chr(188));
  530.       MovieName:=StringReplace(MovieName, '┐', chr(191));
  531.       MovieName:=StringReplace(MovieName, 'Ñ', chr(161));
  532.       MovieName:=StringReplace(MovieName, '╞', chr(198));
  533.       MovieName:=StringReplace(MovieName, '╩', chr(202));
  534.       MovieName:=StringReplace(MovieName, 'ú', chr(163));
  535.       MovieName:=StringReplace(MovieName, '╤', chr(209));
  536.       MovieName:=StringReplace(MovieName, '╙', chr(211));
  537.       MovieName:=StringReplace(MovieName, 'î', chr(166));
  538.       MovieName:=StringReplace(MovieName, 'Å', chr(172));
  539.       MovieName:=StringReplace(MovieName, '»', chr(175));
  540.       MovieName:=StringReplace(MovieName, ' ', '%20');
  541.       AnalyzePage('http://filmweb.pl/Find?query="' + MovieName + '"&category=1');
  542.     end;
  543.   end else
  544.     ShowMessage('Skrypt wymaga programu Ant Movie Catalog w wersji 3.4.3 lub nowszej');
  545. end.
  546.  
  547.  
  548.